00100		REAL I,II,III,IV
00200		DIMENSION NM(4,18),I(18),II(12,18),III(18),IV(4,18)
00300		1,GRADE(18),XI(18),XII(18),XIII(18),XIV(18)
00400		DATA NM/
00500		1'JONES,CHRIS.        ','NICHOLSON,LESLIE    ',
00600		1'SHIELDS,ANDREW      ','EAGLETON,GWEN       ',
00700		1'GOOD,LARRY          ','FEHRENBACH,ANDREW   ',
00800		1'HARRISON,DANIEL     ','LEE,DANA            ',
00900		1'KIRK,VERNON         ','OSBORNE,KIM         ',
01000		1'PERLOFF,NANCY       ','RAIN,BARBARA        ',
01100		1'SAWHILL,BRUCE       ','SETRAKIAN,MARY      ',
01200		1'SIMS,JANET          ','TOGASHI,SANDRA      ',
01300		1'WASSERMAN,NATALIE   ','WEISZ,MARGIE        '/
01400		CALL IFILE(1,'FINL')
01500		JK=0
01600	32	READ(1,44,END=33)K
01700		DO 31 N=1,18
01800	31	IF(K.EQ.NM(1,N))GO TO 1
01900		GO TO 32
02000	1	TYPE 2,(NM(K,N),K=1,4)
02100	2	FORMAT(1X,4A5)
02200	44	FORMAT(A5)
02300	CC	READ(1,4)(II(K,N),K=1,12)
02400	  	RI=0
02500	CC	DO 7  K=1,12
02600	CC	IF(II(K,N).NE.0)GO TO 7
02700	CC	TYPE 8
02800	8	FORMAT(' **** MISSING INPUT ****'/)
02900	CC7	RI=RI+II(K,N)
03000	CC	RI=RI/120*20
03100	C QUEST. I IS IN 12 PARTS.  IT ALL = 20% OF EXAM.
03200	CC	XI(N)=RI
03300	4	FORMAT(20F)
03400	C QUEST. II, III, IV  = 26.66%
03500		READ(1,4)(IV(K,N),K=1,4)
03600		RIV=0
03700		DO 12 K=1,4
03800		IF(IV(K,N).NE.0)GO TO 12
03900		TYPE 8
04000	12	CONTINUE
04100		XI(N)=IV(1,N)*.16666
04200		XII(N)=IV(2,N)*2.6666
04300		XIII(N)=IV(3,N)*2.6666
04400		XIV(N)=IV(4,N)*0.889 
04500		GRADE(N)=XI(N)+XII(N)+XIII(N)+XIV(N)
04600		JK=JK+1
04700		GO TO 32
04800	
04900	22	FORMAT(' GRADE=',F5.2,/' I=',F5.2,'   II=',F5.2,
05000		1'   III=',F5.2,'   IV=',F5.2/)
05100	33	CALL OFILE(1,'GRADE')
05200		RK=JK
05300		R=0
05400		DO 25 K=1,18
05500	25	R=R+GRADE(K)
05600		R=R/RK
05700		TYPE 24,R
05800		WRITE(1,24)R
05900	24	FORMAT(/' AVERAGE=',F5.2/)
06000		DO 23 K=1,18
06100		IF(GRADE(K).EQ.0)GO TO 23
06200		TYPE 2,(NM(N,K),N=1,4)
06300		WRITE(1,2),(NM(N,K),N=1,4)
06400		TYPE 22,GRADE(K),XI(K),XII(K),XIII(K),XIV(K)
06500		WRITE(1,22)GRADE(K),XI(K),XII(K),XIII(K),XIV(K)
06600	23	CONTINUE
06700	27	FORMAT(12F7.2,/3F7.2//)
06800		END